BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/E/Exegesis Tools.cpt/Exegesis Tools/background_6550.txt

Text File | 1990-12-13 | 5KB | 211 lines

-- background: 6550 from stack: in
-- bmap block id: 6787
-- flags: 4000
-- background id: 0
-- name: Form Back
----- HyperTalk script -----
on opencard
  --this comes from Stack Developer by Steve Drazga
  put (the number of this card - the number of first card of this background+1) into field "Page Num"
end opencard


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=45 top=298 right=327 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 12042 / 12042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect zoom close
  go Home
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=299 right=327 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to card ID 2974
end mouseUp



-- part 14 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=47 top=54 right=69 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scripture verse


-- part 13 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=46 top=76 right=302 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Form data


-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=289 top=303 right=327 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of this bkgnd
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=209 top=302 right=327 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 6460 / 6460
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to prev card of this bkgnd
end mouseUp


-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=26 right=55 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: How to…
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 8834
end mouseUp




-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=234 top=307 right=325 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: page num


-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=78 top=295 right=329 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 22076 / 22076
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Delete this card?" with "Cancel" or "Yes"
  set the cursor to 4
  if it is "cancel" then exit mouseUp
  set lockscreen to true
  domenu "delete Card"
  go prev
  set lockScreen to false
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=418 top=300 right=332 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print “Form Criticism” Report or Card?" with "Cancel" or "Report" or "Card"
  if it is "Cancel" then
    exit mouseUp
  end if
  if it is "Report" then
    domenu "Print Report..."
    exit mouseUp
  end if
  if it is "Card" then
    open printing with dialog
    if it is empty then
      exit mouseUp
    else
      print this card
      close printing
    end if
  end if
end mouseUp